home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00731_DE-INI.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.3 KB  |  37 lines
  1. on enterFrame
  2.   global gMaxBoutons, gSurvolAct, gSurvolPrec, gBarChron, gSujet0, gMessDef1, gBoutons, gChapAct, gEtudAct, gEtudPrec, gMessSty1, g1erSprChr, g1erSprNav, g1erSprLoc, gListBtDec, gSprSel, gLocLabel
  3.   curseur(6)
  4.   set gMaxBoutons to 31
  5.   set g1erSprLoc to 22
  6.   set gListBtDec to []
  7.   setAt(gListBtDec, g1erSprLoc, "PUR")
  8.   setAt(gListBtDec, g1erSprLoc + 1, "BRA")
  9.   setAt(gListBtDec, g1erSprLoc + 2, "GIG")
  10.   setAt(gListBtDec, g1erSprLoc + 3, "HER")
  11.   setAt(gListBtDec, g1erSprLoc + 4, "EUR")
  12.   setAt(gListBtDec, g1erSprLoc + 5, "AFR")
  13.   set gEtudAct to "mon"
  14.   set gChapAct to "DE"
  15.   set gLocLabel to "DE:RN mon"
  16.   if gSujet0 <> "0" then
  17.     set moncod to gSujet0(Le_Code)
  18.     set monSpr to getPos(gListBtDec, moncod)
  19.     if monSpr = 0 then
  20.       if (moncod = "HSN") or (moncod = "APA") or (moncod = "NEC") or (moncod = "HSS") or (moncod = "PNE") or (moncod = "ORE") or (moncod = "HSA") then
  21.         go(label("DE:eur"))
  22.       else
  23.         go(label("DE:afr"))
  24.       end if
  25.     end if
  26.   else
  27.     preLoad(the frame + 10)
  28.   end if
  29.   repeat with i = g1erSprNav + 1 to gMaxBoutons
  30.     if (i <> (g1erSprNav + 5)) and (i <> (g1erSprNav + 6)) then
  31.       set the visible of sprite i to 0
  32.     end if
  33.   end repeat
  34.   set the visible of sprite (g1erSprLoc + 11) to 1
  35.   JukeBox(1, " ")
  36. end
  37.